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Abstract. This paper presents simple, syntactic strong normalization 
proofs for the simply-typed A-calculus and the polymorphic A-calculus 
(system F) with the full set of logical connectives, and all the permutative 
reductions. The normalization proofs use translations of terms and types 
of A^,A,v,± to terms and types of A-, and from Fv,3,-^,a,v,± to Fy,^. 



1 Introduction 



^ I In this paper we consider the simply-typed and polymorphic lambda-calculus 

extended by type constructors corresponding to the usual logical connectives, 

namely conjunction, disjunction, absurdity and implication. In the polymorphic 

^Sl ' case we include both universal and existential quantification. In addition, we 



assume all the permutative conversions. 
f-^ ' Different proofs of strong normalization of several variants of these calculi 

00 I occur in the literature cf. [1I5I7I9I10] . It is however surprising that it is quite hard 

^^ ■ to find one covering the full set of connectives, applying to all the permutative 

conversions (in the polymorphic case none of the cited works does so) and given 
by a simple and straightforward argument. We can only repeat after J.Y. Girard: 
. _ I didn't find a proof really nice, and taking little space [H p. 130]. For instance, 

j^ ■ many proofs, like these in [719110] are based on the computability method, or (in 

the polymorphic case) candidates of reducibility. This requires re-doing each time 
the same argument, but in a more complex way, due to the increased complexity 
of the language. 

We believe that methodologically the most adequate approach is by reducing 
the question of strong normalization of the extended systems to the known strong 
normalization of the base systems, involving only implication and the universal 
quantifier. We propose two such proofs in what follows. 

The first proof reduces the calculus A^^a,v,± with connectives A, V, — >, _L to 
the calculus A^. Here we use the strong normalization of A_^ with beta-eta- 
reductions. The proof is based on composing the ordinary reduction of classi- 
cal connectives to implication and absurdity with Ong's translation of the Xjj- 



calculus to the ordinary AT^-calculus, as described e.g. in [51 Chapter 6]. To our 
knowledge this is the most direct way of showing SN for system A^^a.v,^- 

The above method does not however extend to the polymorphic case. Indeed, 
the translation is strictly type-driven and requires an a priori knowledge of all 
types a given expression can obtain by polymorphic instantiation. Also the well 
known definition of logical connectives in system F: 

a At = Vt.(cr -^ t ^ t) ^ t aVr = yt.{a -^ t) ^ {t ^ t) -^ t 

is not adequate. The translation preserves beta-conversion, but not the permu- 
tations. The solution, first used by de Groote ([5], [3]), for first-order logic, is 
a CPS-translation. Our proof is similar to de Groote's but the version of GPS 
we use is based on Nakazawa and Tatsuta [5] . 

1.1 Definitions of relevant calculi 

We consider the calculi A_-,.a,v.± and Fv.3.^.a,v.± in Ghurch's style. The type r 
of a term M is written informally in upper index as Af^. However, if it is clear 
from the context, types will be omitted for the sake of brevity and readability 
- most right-hand sides of equations and reduction rules are written without 
types. 

The full simply-typed A-calculus Types of A^^a,v,_l are built from multiple 
type constants; lowercase Greek letters are used to denote types. 

Definition 1. Types of A^.a,v.± 

CT, r, . . . ::— p, g, . . . , cr ^ r, cr A r, cr V r, _L 

Syntax of terms of A^^a,v,± can be divided in two groups: constructor terms and 
eliminator terms. Lowercase Latin letters denote variables, uppercase - terms. 



Definition 2. Terms of A_ 



,A.V,± 



M, N, . . . ::— Variables 

x^^/^..., 

Introduction 



{Xx" .N^)"^^ , {M%N^y\ {lniA''Y''\ (inaS^)'"''^ 
Elimination 

In the above, the notation iniA and in2j4 represents the left and right injection 
for the sum type, tti and 1^2 are projections and W^'^'^[x.S^ ,y.T^] stands for 
a case statement. The epsilon represents the ex falso. 



Reductions The beta-reductions are written as — >^ and commutative reduc- 
tions are denoted by ^>. For any reduction -^ transitive closure of this relation 
will be denoted as -^^ and transitive, reflexive closure as -». 

Definition 3. /3-rcductions in A^.a,v.± 

{Xx''.M^)A' -^p M[x := A]^ 
{M'',N'')tti ->i3 M" 

{iniAy''^[x''.S^,y\T^] -^p Six'' := A"]^ 
{lTi2BY''-[x''.S\y\T'] ^fi 5[y^ := S^]* 

Definition 4. Commutative reductions in A^,a,v.± 

{A^e„^,)N- ^ A^er 

(A^e<jAr)7r2 ^ A^er 

{A^e^^r)[xrs\y^.T']^A^es 
(A^ex)e, - A^e, 
((W^'"^^[x.S'"^'^,y.T"^^])A^")'^ -> W''''^[x.{SNf,y.{TNf] 
((W^'"''^[x.5'"^'',y.T"^''])7ri)" -> VK'"^^[x.(57ri)",y.(T7ri)"] 

W^'"''^[a;.5'[a.A^ b.B^],y.T[a.A\ b.B^]] 
{W''''^[x.S^,y.T^])eo^ ^ W^'^^^[x.5e„, y.TeJ 

Note that the above commutative reductions follow these two patterns: 

iW[x.S, y.T])E -> W[x.SE, y.TE], (1) 

{Ae)E -> Ae, (2) 

where E is an arbitrary eliminator. That is, E is cither a term TV or a projection, 
or epsilon, or it has the form [x.S.y.T]. 

The full polymorphic A-calculus The full polymorphic A-calculus extends 
the system of the previous section by existential and universal polymorphism. 
Terms of the calculus are all the terms of simply-typed A calculus plus universal 
and existential introduction and elimination. 

Definition 5. Types of Fv.3,^,a,v.± 

CT, T, . . . ::= p, g, . . . , cr ^ T, (7 A T, cr V T, Vpr, Bpr, _L 



In the definition below, notation [M'^^p'~°'\ a] stands for introduction of type 
3pT and [x'^.TV'^] is a eliminator for that type. 

Definition 6. Terms of Fv,a,^,A,v,-L 

M,N,. . . ::= Variables 

x^2/^... 

Introductions 
Eliminations 

{A^e^Y 
The /3-reductions and commutative reductions in this system are as follows. 

Definition 7. The /3-rcductions in Fv.3.^.a,v.± are as in Definition [3] and in 
addition 

[Ar^P--=''\a][x\N'] -^p (Nip := a][x := M])' (3) 

(ApM^)CT ->;3 M[p := a] (4) 

The total number of commutative reductions reaches 21. The patterns mentioned 
in Rules ([T]) and ^ are extended by the additional one: 

{M[x.P])E -^ M[x.PE], (5) 

where E can also be of the form of existential {[y.R]) or universal (cr) eliminator. 

Definition 8. Additional commutative reductions in Fv,3,-,.a,v,±- 
Let S abbreviate \/p a in rules below. 

{w''''^[x^.s\y\T^]Y ^w[x.{SjY^--=^\y-iTiY^'-=^^] (6) 

(^-^£5)7 -^A-Le„[p,^^] (7) 

{M^P^[x''.P^]Y wM3p^[a;.(P7)"[P^='^]] (8) 

(9) 
In the following rules, d abbreviates 3pa. 

(W'''^''[x''.S\y''.T%a°'.N^] ^W''''^[x.{S[a.N]Y ,y.{T[a.N]Y] (10) 

iA^e5)K.N^] ^A^e^ (11) 

iM^P^[y^.P^])[a".N^] ^M^P^[y.{P[a.N]Y] (12) 



A^[x°'.N''^^]P'' --^Aix.iNPy] (13) 

A^[x''.N''''^]ni ^A[x.{NTTiy] (14) 

A^[x''.N''''^]Tr2 ^A[x.{Ntt2Y] (15) 

A^[x°'.N''''^][y''.S^, z\T^] ->yl[a;.(iV[y.5, z.T]Y] (16) 

A'[x<-.N^]e, ~^A[x.{N€„Y] (17) 

2 The translation for simple types 

A type r of the A^,a,v.± calculus is translated to a type |t| of A^ calculus, 
a term M is translated to a term \M\. 

Definition 9. Translation of types. 

\a\ ~ ±, for all type constants a = _L,p, (7, . . . 

(7 ^ r| = \a\ -^ \t\ 
|ctAt| = (|cr| -^\t\^ L)^ L 
|ct V t| = (|cr| ^ -L) ^ (|r| ^ ±) ^ ± 

Example 10. Let t = p ^ q ^ {p A q). Then 

Definition 11. (Translation of terms) It is assumed below that types IcIjItI 
and \6\ are as follows: |cr| = cti ^ ■ • • ^ (t„ ^ ±, |t| = ti ^ • • • ^ t„i ^ ± and 

|x'"|=a;l'^l (18) 

lAx^.Af"! = Aa;l^l.|M|l'"l (19) 

(M,iV)'^^^| = Azl'^l^l^l^^.z|M|l''l|7V|l^l (20) 

|(iniA)''''^| = Aa;l'^I^^.Ayl^l^-L.a;|A|l''l (21) 

|(in2-B)''''^| = Aa;l'"I^^.Ayl^l^^.a;|B|l^l (22) 

KAf^^^iV^)! = (|M|I'"I^I^I|A^|I''I) (23) 

|(P''''^)7ri| = A4i...A<".|P|l''''''l 

(Aa;l"I.Ayl"l.(xa;i...a;„)^) (24) 

l(p-n^2| = A2;?...Ax;r-l^l'"^^' 

(Aa;l-I.Ayl-l.(yxi...a;„0^) (25) 

(Aa;l"l.|5|l'\i . . .a;fe)(Ayl"l.|T|l''lxi . . .Xfc) (26) 

\M^e,\ = A41 . . . Xxl^i-lMl^ (27) 

Lemma 12 (Soundness). If a term M has type 6, then \M\ has type \6\. 



Proof. Obvious. D 

Lemma 13. If R ^ R' , then \R\ ~>+^ \R'\. 

Proof. The proof proceeds by cases on the definition of -^p and ~^. Two example 
reductions will be elaborated here. 

pi]) Let R = {M", N^)tti and R^p R' ^ M, where |cr| = cti ^ > a^i ^ ^■ 

|i?| = |(Af,iV)"^Vi| 

= Aa.(Azl'"l^l^l^^.z|A/||iV|)(Aa;l''lAyl^l.(a;a)-L) 
^p \a.{{\x\'''^\y\^y{xd)^)\M\\N\) 
-^p Aa.(Ayl^l.|Af|a)|iV| -^p \a.\M\d ^+ \M\ 
= \R'\ 

(Iini)Leti?= {W'''^''[x.S'^-'f\y.T°'^^])N°' andlei R' = W'''^''[x.{SNf ,y.{TNY] 
Then R -^ R', according to ((26)) . Assuming |/3| = /3i ^ • • • ^ /3„ ^ _L, we have 

|i^| = (Aal"l6f^..6^".|W^|(Aa;l'^l.|S'|l"l^l^la6■)(Ayl^l.|^|l"l^l^la&))|7V|l"l 
-^pXh...bn.\W\{Xx^''^.\S\\N\b){Xy^-l\T\\N\b)) 

= \R'\ 

Other cases are similar. D 

Theorem 14. The calculus A^^a.v,± is strongly normalizing. 

Proof. Suppose, by contradiction, that M'^ admits an infinite /3-reduction 

Ar = M^ -^p Ml -^p Aq ^p--- 

By Theorem 1131 we have an infinite reduction in A^ 



/3rj l^"il ^I3rj l""^l "" Pr, 



\Ar\ = \Mo\ ^+ I Ml I ^+ |Af2 



This contradicts the SN property of A_> D 

3 Translation for polymorphic types 

As we mentioned in the introduction, the translations in Section [3] are not ad- 
equate for the polymorphic case and therefore we apply a call-by-name CPS 
translation. In general, a type r is translated to r = (r* -^ ±) ^ ±. This 
translation, unlike the one for simple types, does not unify type constants. The 
helper translation * is given below. 
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Definition 15. Helper translation *. 

a* = a, for all type constants a = _L,p, 5, . . . 

(a ^ /3)* = a ^ ^ 

(a V /3)* = (a ^ ±) ^ (/3 ^ ±) ^ ± 
(Vpr)* = Vpr 
(3pr)* = (Vp(T^l))^± 

A term M"^ is translated to the term M_ = Xk'^ '^-^.{Mok). To achieve that, two 
helper translations are needed: o and @ . The term K in the definition below is 
of type T* — > ±. The term M o K is always of type _L. 

Definition 16. Helper translation o 

x^oK = xK (28) 

Xx^.NP oK = K{\x^.N) (29) 

{Nl^ ,N^^)oK = K{\pli--^^-^^ .PN1N2) (30) 

{liiiAY'^^^' o K = K{\a^-^H^-^^.aA) (31) 

{±Ti2BY^^''^ o K = K{\aI^-^H^-^^.bB) (32) 

ApN^oK ^ K{Ap.N) (33) 

[NP^P--='^\a] oK^ KiXu^P^P-^^luaN) (34) 

NEoK ^No{E@K) (35) 

In (j35p the symbol i? stands for an arbitrary eliminator. That is, E is one of 
the expressions {i?'^, tti, 7r2, [x'^^.S^ ,y'^^.T^],a, [xP.S^],ea} and the omitted type 
of term N is appropriate for every eliminator E. 

Definition 17. Helper translation @ 

R@K ^ Xm^-^P.mRK 

TTi@K = Xm^Il.-'^-^^^^^ .m{\a^h^.aK) 

[x^\S\y''\T^]@K = Am(l3-^^'^(l^^-L)^-L. 

m{Xx^.{S o K)){Xy^.{T o K)) 
a@K = Xm^PP.maK 
[xP.S^] @K^ Am(^''(p^-L))^-L.m(ApAx^.(S' o K)) 
ea@K ^ Xm^.m 

Lemma 18. [Soundness] // a term M has type S, then M_ has type 6. 

Proof. Easy. D 
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Lemma 19. [Properties of substitution] For a term R and any term K and for 
any types r and p the following holds: 

R[x^ :== N_^] =a R[x:=N] ; (36) 

{R o K) [x^ := N^ ^aR[x:=N]oK[x:=N]; (37) 

{R @ K) [x^ := N^] =„ R[x := N]@K[x := N] if R is an eliminator; (38) 

l[p -^ p]^a t[p ~p] ; (39) 

{RoK)[p := p] =„ R[p := p] o K[p := p]; (40) 

{R@K)[p ■- p] ^a R[p := p\@iK[p := p] if R is an eliminator. (41) 

Proof. This lemma is proved by simultaneous induction on the definition of 
substitution. D 

Lemma 20. // R -^p R' , then R -^+ R^. 

Proof. Using induction on the definition of — >^ we have 7 cases. For example, 
consider Q, where R = [Ar^P--='^la][x^ .N^] and R' = {N[p := a][x := M]Y . 

dSD R^ Xk.{Xm^^P^'>' .m{ApXx\{N o k))){Xu^P^^-^^lug_M) 
-^f3 Xk.{Xu.uaM){ApXx.{N ok)) 
-^p Xk.{ApXx.{Nok))aM 
->/3 Xk.{Xx.{N o k))[p := a] M 
-^p Xk.{Xx.{N[p := a] o k))M (from ^) 
-^p Xk.{N[p := a] o k)[x := M] 
=„ Xk.{N[p := a][x := M] o fc) (from ^) 

u 

Lemma 21. If R -^ R' , then R=aR'- 

Proof. The complete proof consists of 21 cases. Here, two interesting commuta- 
tions will be elaborated. The other cases are similar and left to the reader. 
From (fT2|) we get 



LHS ^Xk.{M[y.P] o {[x.N] @ k)) = Afc.(M o {[y.P] @ {[x.N] @ k))) 

^Xk.{M o {Xm.m{ApXy.{P o [x.N] @ k)))) 
RHS =Xk.{M o {[y.P[x.N]] @ k)) = Xk.{M o {Xm.m{ApXy.{P[x.N] o k)))) 

=Xk.{M o {Xm.m{ApXy.{P o [x.N] @ k)))) 



From (fT7)) we get 



LHS =Xk.{A[x.N] o ita @ fc)) = \k\A\x.N\ o (e^ @ k)) 

^\k.{Ao{[x.N]@{e„@k))) 

=\k.{A o {\m.m{ApXx.{N o (e^ @ fc))))) 
RHS =Xk.iA o {[x.Ne^] @ k)) = Xk.{A o {Xm.m{KpXx.{N€„ o k)))) 

=Xk.{A o {Xm.m{ApXx.{N o (e^ @ fc))))) 
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Lemma 22. Every sequence of commutative reductions in Fv,3,^,a,v,_l must 
terminate. 

Proof. To prove this lemma we define such a measure x{M) > 0, that for any 
commutation M -^ M', we have x(-^) > xi^'^')- Please note, that we have 
3 patterns of commutative reductions in Rules dJ), ^ and ([5]). We use those 
patters to define appropriate conditions for measure x'- 

X m[x.S, y.T])E) > X {W[x.SE, y.TE]) (42) 

x{iAe)E)>x{Ae) (43) 

x{{N[x.P])E)>x{N[x.PE]) (44) 
X{M) > 1 

Now we give the definition of the function x(-^)j it is similar to de Groote's 
norm | • | from '2 but simpler: 

Xi^) - 1 

x(Ax.7V) = x(iniA^) = x(in2iV) = x(^), x((Mi, M2}) = x(Mi) + x(M2) 

X{FA) = x(^)\(^), xl^TTi) = x{P7T2) = X{P)\ xiNa) = x{Nf 

x{W[x.S, y.T]) = x{Wf{x{S) + x(T)) + 1 x(A^[x.P]) = x{Nfx{P) + 1 

x(Ae) = x{Af + 1 



There are 21 easy cases, one for each permutation from Definitions 2] and [51 We 
will show here one example case for each pattern mentioned above. 

g21) Let / = x{{W[x.S, y.T])[a.A, b.B]) and r = x{W[x.S[a.A, b.B],y.T[a.A, b.B]]). 

I = x{W[x.S, y.T]f{x{A) + x{B)) + 1 
= {x{Wf{x{S) + X{T)) + if {x{A) + x{B)) + 1 

> ixiWfixiS) + x{T))f {X{A) + x{B)) + 1 

= x{Wf {{x{Sf + x{Tf){x{A) + x{B)) + 2(x(5)x(r))(x(A) + x(S))) + 1 

> x{W)\{x{Sf + x{Tf){x{A) + X{B)) + 2) + 1 



r = x{Wf{x{S[a.A, b.B]) + x{T[a.A, b.B])) + 1 
= x{Wf{x{Sf{x{A) + x{B)) + 1 + x(TnxiA) + x{B)) + 1) + 1 
= x{Wf{{x{Sf + x{Tf){x{A) + X{B)) + 2) + 1 

I > r 

(gni) Let I 



= 


-x{{Ae±)e^) and 


r = xO 


4e.). 


I 


= X(^ex)' + 1 = 


(x(^)' 


+ lf 


r 


= X{A)^ + 1 






I 


> r 
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dHl) Let / = x((^[2;-^])[a-^, ^-S]) and r = x(^[2^-^[a-^, ^--B]])- 

= {x{Nrx{P) + lf{x{A)+x{B)) + l 
= ixiNfxiPf + 2x(A^)2x(n + 1)(X(^) + X(S)) + 1 
- XWV(^)'(X(^) + X(S)) + x{Nf{2x{P){x{A) + x{B))) 
+ x{A)+x{B) + l 
r ^ x{Nfx{P[a-A,h.B]) + I 
^x{Nf{x{Pf{x{A)+x{B)) + l) + l 

= x{Nfx{Pf{x{A) + x{B)) + x{Nf + 1 
I > r 

Theorem 23. The calculus Fv,3,^,a,v,-L is strongly normalizing. 
Proof. Suppose that 

M^ = M^ -^ Ml -^ M^ -^ ■■■ 

If there is infinitely many /3-rcductions in the sequence above then we have an 
infinite reduction in Fy,^. If almost all reduction steps are of type ~-~^ then we 
use Lemma [22l In both cases we reach contradiction. D 

4 Summary 

We have presented a short proofs of strong normalization for simply-typed and 
polymorphic A-calculus with all connectives. Syntax-driven translations used in 
those proofs allow to reduce the SN property problem to calculi with less number 
of connectives. 

The CPS-translation used for polymorphic case looks may be helpful dealing 
with higher level A-calculus such as F^^ . This is our next research problem. 
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